perm filename XPLAIN.TEX[TEX,DEK] blob
sn#731862 filedate 1983-11-14 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 % this file contains extensions to PLAIN that I might use for Xerox fonts etc
C00013 ENDMK
Cā;
% this file contains extensions to PLAIN that I might use for Xerox fonts etc
% (if I ever finish it --- for now it's just got experimental stuff)
% (it was created when PLAIN was in a very early state; not up to date at all)
% Definitions for preloaded fonts
\newfont cmr10\is\tenrm % modern roman
\newfont cmr9\is\ninerm
\newfont cmr8\is\eightrm
\newfont cmr7\is\sevenrm
\newfont cmr6\is\sixrm
\newfont cmr5\is\fiverm
\newfont amr10\is\newrm % currently best version, lacks Greek
\newfont cmi10\is\teni % math italic
\newfont cmi9\is\ninei
\newfont cmi8\is\eighti
\newfont cmi7\is\seveni
\newfont cmi6\is\sixi
\newfont cmi5\is\fivei
\newfont amsy10\is\tensy % math symbols
\newfont amsy9\is\ninesy
\newfont cmsy8\is\eightsy % square root doesn't work in this size!
\newfont cmsy7\is\sevensy % ditto
\newfont cmsy6\is\sixsy % ditto
\newfont cmsy5\is\fivesy
\newfont cmathx\is\tenex % math extension
\newfont eufrak\is\tenfr % Fraktur
\newfont cmss10\is\tenss % sans serif
\newfont cmss9\is\niness
\newfont cmss8\is\eightss
\newfont cmsss\is\tensss % slanted sans serif
\newfont cmsss9\is\ninesss
\newfont cmsss8\is\eightsss
\newfont amsss8\is\newsss % currently best version, lacks Greek
\newfont cmb10\is\tenbf % boldface extended
\newfont cmb9\is\ninebf
\newfont cmb8\is\eightbf
\newfont ambx10\is\newbf % currently best version, lacks Greek
\newfont cmtt\is\tentt % typewriter
\newfont cmtt9\is\ninett
\newfont cmtt8\is\eighttt
\newfont cmst\is\tenst % slanted typewriter
\newfont cms10\is\tensl % slanted roman
\newfont cms9\is\ninesl
\newfont cms8\is\eightsl
\newfont cmti10\is\tenit % text italic
\newfont cmti9\is\nineit
\newfont cmti8\is\eightit
\newfont cmti7\is\sevenit
\newfont cmu10\is\tenuit % unslanted text italic
\newfont cmbti\is\tenbti % bold text italic
\newfont cmbsy\is\tenbsy % bold math symbols
\newfont cmcsc\is\tencsc % caps and small caps
\newfont cmcsc9\is\ninecsc
\newfont cmssb\is\tenssb % sans serif bold
\newfont cmss9b\is\ninessb
\newfont cmss8b\is\eightssb
\newfont amssb\is\newssb % vastly improved version, but lacks Greek
\newfont amssb at 13pt\is\largerssb % for titles
\newfont cmr7 at 21pt\is\largerrm % for titles
\newfont manfnt\is\mffnt % METAFONT logo and dragon curve
\newfont cmdunh\is\dunhill % Dunhill style
\newfont stan70\is\stanford % Stanford seal
\newfont helvetica at 9.090909bp\is\tenhrm % helvetica, should be magnified
\newfont helveticai at 9.090909bp\is\tenhit % helvetica italic
\newfont helveticab at 9.090909bp\is\tenhbf % helvetica boldface
\newfont timesroman at 9.090909bp\is\tentrm % times roman, should be magnified
\newfont timesromani at 9.090909bp\is\tentit % times italic
\newfont timesromanb at 9.090909bp\is\tentbf % times roman bold
\let\mainfont=\newrm
\newfam\fraktur
\def\tenpoint{\def\rm{\:\tenrm\fam0 }
\textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
\textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei
\textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
\def\it{\:\tenit\fam4 }
\textfont4=\tenit \scriptscriptfont4=\sevenit
\def\sl{\:\tensl\fam5 }
\textfont5=\tensl
\def\bf{\:\tenbf\fam6 }
\textfont6=\tenbf
\def\tt{\:\tentt\fam7 }
\textfont7=\tentt
\def\ss{\:\tenss\fam8 }
\textfont8=\tenss
\def\sss{\:\tensss\fam9 }
\textfont9=\tensss
\textfont\fraktur=\tenfr
\baselineskip 12pt
\dispskip 12pt plus 3pt minus 9pt
\def\strut{{\vrule height8.5pt depth3.5pt width0pt}}}
\def\ninepoint{\def\rm{\:\ninerm\fam0 }
\textfont0=\ninerm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
\textfont1=\ninei \scriptfont1=\sixi \scriptscriptfont1=\fivei
\textfont2=\ninesy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
\def\it{\:\nineit\fam4 }
\textfont4=\nineit
\def\sl{\:\ninesl\fam5 }
\textfont5=\ninesl
\def\bf{\:\ninebf\fam6 }
\textfont6=\ninebf
\def\tt{\:\ninett\fam7 }
\textfont7=\ninett
\def\ss{\:\niness\fam8 }
\textfont8=\niness
\def\sss{\:\ninesss\fam9 }
\textfont9=\ninesss
\textfont\fraktur=\ninefr
\baselineskip 11pt
\dispskip 11pt plus 3pt minus 8pt
\def\strut{{\vrule height8pt depth3pt width0pt}}}
\def\eightpoint{\def\rm{\:\eightrm\fam0 }
\textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
\textfont1=\eighti \scriptfont1=\sixi \scriptscriptfont1=\fivei
\textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
\def\it{\:\eightit\fam4 }
\textfont4=\eightit
\def\sl{\:\eightsl\fam5 }
\textfont5=\eightsl
\def\bf{\:\eightbf\fam6 }
\textfont6=\eightbf
\def\tt{\:\eighttt\fam7 }
\textfont7=\eighttt
\def\ss{\:\eightss\fam8 }
\textfont8=\eightss
\def\sss{\:\eightsss\fam9 }
\textfont9=\eightsss
\textfont\fraktur=\eightfr
\baselineskip 11pt
\dispskip 11pt plus 3pt minus 8pt
\def\strut{{\vrule height8pt depth3pt width0pt}}}
% the following macros are for text in PARC fonts
% say \xeroxworld for text in timesroman10 (math in computer modern as usual)
% and say \xeroxworld\helvetica for text in helvetica10
\def\xeroxworld{\magnify{1100}
\def\rm{\:\tentrm\fam0 }
\def\it{\:\tentit\fam4 }
\def\bf{\:\tentbf\fam6 }
\def\ss{\:\tenhrm\fam8 }
\def\sss{\:\tenhit\fam9 }
\def\xac##1##2{\vbox{\hbox{\char##1}\kern\minusthe\texinfo\the\:5
\hbox{##2}}} % places zero-width accent in Xerox-like font
\def\mxac##1##2{\ifmmode{\def\next{\accent'##1}}
\else{\def\next{\xac{##2}}} \next}
\def\`{\xac5}
\def\'{\xac{'13}}
\def\ā{\mxac{17}\error}
\def\v{\mxac{20}1}
\def\u{\mxac{21}{'27}}
\def\={\mxac{22}{'16}}
\def\"{\mxac{23}4}
\def\H{\xac4}
\def\b{\mxac{25}\error}
\def\~{\mxac{24}{'36}}
\def\t{\error}
\def\a{\xac{'37}}
\def\l{\error}
\def\c{\error}
\def\i{\error}
\def\j{\error}}
\def\helvetica{\def\rm{\tenhrm\fam0 }
\def\it{\tenhit\fam4 }
\def\sl{\tenhit\fam5 }
\def\bf{\tenhbf\fam6 }}